home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / 2.01 sources / Library-2.01 / Interfaces / PPCTOOLBOX.lisp < prev    next >
Encoding:
Text File  |  1993-09-16  |  14.0 KB  |  475 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :traps)             ; 
  3. ; Created: Sunday, January 6, 1991 at 10:55 PM
  4. ;     PPCToolBox.p
  5. ;     Pascal Interface to the Macintosh Libraries
  6. ; 
  7. ;         Copyright Apple Computer, Inc.    1989-1990
  8. ;         All rights reserved
  9. ; 
  10.  
  11. ;;;;;;;;;;;;;
  12. ;
  13. ; Modification History
  14. ;
  15. ; 04/28/93 mwp Release
  16. ; 04/17/92 bill Flavors Technology's fixes to _StartSecureSession & _GetDefaultUser
  17. ;-------------- 2.0
  18. ; 08/23/91 bill remove bogus return specs in call forms
  19. ;               Take a stab at _deleteuseridentity, _getdefaultuser, & _startsecuresession
  20.  
  21. ;
  22.  
  23. ; $IFC UNDEFINED UsingIncludes
  24. ; $SETC UsingIncludes := 0
  25. ; $ENDC
  26.  
  27. ; $IFC NOT UsingIncludes
  28.  
  29. ; $ENDC
  30.  
  31. ; $IFC UNDEFINED UsingPPCToolBox
  32. ; $SETC UsingPPCToolBox := 1
  33.  
  34. ; $I+
  35. ; $SETC PPCToolBoxIncludes := UsingIncludes
  36. ; $SETC UsingIncludes := 1
  37. ; $IFC UNDEFINED UsingAppleTalk
  38.  
  39. (require-interface 'APPLETALK)  ; $I $$Shell(PInterfaces)AppleTalk.p
  40. ; $ENDC
  41. ; $IFC UNDEFINED UsingMemory
  42.  
  43. (require-interface 'MEMORY)     ; $I $$Shell(PInterfaces)Memory.p
  44. ; $ENDC
  45. ; $IFC UNDEFINED UsingTypes
  46.  
  47. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  48. ; $ENDC
  49. ; $SETC UsingIncludes := PPCToolBoxIncludes
  50.  
  51. (def-mactype :ppcservicetype (find-mactype :signed-byte))
  52.  
  53. ;   service Type  
  54. (defconstant $ppcServiceRealTime 1)
  55.  
  56. (def-mactype :ppclocationkind (find-mactype :signed-integer))
  57.  
  58. ;  lookup Type 
  59. (defconstant $ppcNoLocation 0)  ;  There is no PPCLocName 
  60. (defconstant $ppcNBPLocation 1) ;  Use AppleTalk NBP      
  61. (defconstant $ppcNBPTypeLocation 2);  Used for specifying a location name type during PPCOpen only 
  62.  
  63. (def-mactype :ppcportkinds (find-mactype :signed-integer))
  64.  
  65. ;  port Types 
  66.  
  67. (defconstant $ppcByCreatorAndType 1);  PortType is specified as colloquial Mac creator and type 
  68. (defconstant $ppcByString 2)    ;  Port Type is in pascal string format 
  69.  
  70. (def-mactype :ppcsessionorigin (find-mactype :signed-byte));  Values returned for request field in PPCInform call 
  71.  
  72. ;  Values returned for requestType field in PPCInform call 
  73. (defconstant $ppcLocalOrigin 1) ;  session originated from this machine 
  74. (defconstant $ppcRemoteOrigin 2);  session originated from remote machine 
  75.  
  76. (def-mactype :ppcportrefnum (find-mactype :signed-integer))
  77. (def-mactype :ppcsessrefnum (find-mactype :signed-long))
  78.  
  79. (def-mactype :ppcportptr (find-mactype :pointer))
  80. (defrecord PPCPortRec 
  81.    (nameScript :signed-integer) ;  script of name 
  82.    (name (:string 32))          ;  name of port as seen in browser 
  83.    (portKindSelector :signed-integer);  which variant 
  84.    (:variant 
  85.  
  86.       ((portTypeStr (:string 32)))
  87.  
  88.       ((portCreator :ostype)
  89.       (portType :ostype))
  90.       ))
  91.  
  92. (def-mactype :locationnameptr (find-mactype :pointer))
  93. (defrecord LocationNameRec 
  94.    (locationKindSelector :signed-integer);  which variant 
  95.    (:variant 
  96.  
  97.       ((nbpEntity :entityname)) ;  NBP name entity 
  98.  
  99.       ((nbpType (:string 32)))  ;  just the NBP type string, for PPCOpen 
  100.       ))
  101.  
  102. (def-mactype :portinfoptr (find-mactype :pointer))
  103. (defrecord PortInfoRec 
  104.    (filler1 :signed-byte)
  105.    (authRequired :boolean)
  106.    (name :ppcportrec)
  107.    )
  108.  
  109. (def-mactype :portinfoarrayptr (find-mactype :pointer))
  110. (defrecord PortInfoArray (array (array :portinforec 1)))
  111. (def-mactype :ppcfilterprocptr (find-mactype :pointer))
  112. ; Procedures you will need to write 
  113. ;  ex: void MyCompletionRoutine(PPCParamBlkPtr pb) 
  114. ;  ex: pascal Boolean    MyPortFilter(LocationNamePtr locationName, PortInfoPtr 
  115. ;  thePortInfo)
  116.  
  117. (def-mactype :ppccompprocptr (find-mactype :pointer))
  118.  
  119. (def-mactype :ppcopenpbptr (find-mactype :pointer))
  120. (defrecord PPCOpenPBRec 
  121.    (qLink :pointer)
  122.    (csCode :signed-integer)
  123.    (intUse :signed-integer)
  124.    (intUsePtr :pointer)
  125.    (ioCompletion :pointer)
  126.    (ioResult :signed-integer)
  127.    (reserved (:array :signed-long 5));  reserved 
  128.    (portRefNum :signed-integer) ;  Port Reference 
  129.    (filler1 :signed-long)
  130.    (serviceType :signed-byte)
  131.    (resFlag :signed-byte)
  132.    (portName (:pointer :ppcportrec));  PortName for PPC 
  133.    (locationName (:pointer :locationnamerec))
  134.    (networkVisible :boolean)
  135.    (nbpRegistered :boolean)
  136.    )
  137.  
  138. (def-mactype :ppcinformpbptr (find-mactype :pointer))
  139. (defrecord PPCInformPBRec 
  140.    (qLink :pointer)
  141.    (csCode :signed-integer)
  142.    (intUse :signed-integer)
  143.    (intUsePtr :pointer)
  144.    (ioCompletion :pointer)
  145.    (ioResult :signed-integer)
  146.    (reserved (:array :signed-long 5))
  147.    (portRefNum :signed-integer)
  148.    (sessRefNum :signed-long)
  149.    (serviceType :signed-byte)
  150.    (autoAccept :boolean)
  151.    (portName (:pointer :ppcportrec))
  152.    (locationName (:pointer :locationnamerec))
  153.    (userName (:pointer (:string 255)))
  154.    (userData :signed-long)
  155.    (requestType :signed-byte)
  156.    )
  157.  
  158. (def-mactype :ppcstartpbptr (find-mactype :pointer))
  159. (defrecord PPCStartPBRec 
  160.    (qLink :pointer)
  161.    (csCode :signed-integer)
  162.    (intUse :signed-integer)
  163.    (intUsePtr :pointer)
  164.    (ioCompletion :pointer)
  165.    (ioResult :signed-integer)
  166.    (reserved (:array :signed-long 5))
  167.    (portRefNum :signed-integer)
  168.    (sessRefNum :signed-long)
  169.    (serviceType :signed-byte)
  170.    (resFlag :signed-byte)
  171.    (portName (:pointer :ppcportrec))
  172.    (locationName (:pointer :locationnamerec))
  173.    (rejectInfo :signed-long)
  174.    (userData :signed-long)
  175.    (userRefNum :signed-long)
  176.    )
  177.  
  178. (def-mactype :ppcacceptpbptr (find-mactype :pointer))
  179. (defrecord PPCAcceptPBRec 
  180.    (qLink :pointer)
  181.    (csCode :signed-integer)
  182.    (intUse :signed-integer)
  183.    (intUsePtr :pointer)
  184.    (ioCompletion :pointer)
  185.    (ioResult :signed-integer)
  186.    (reserved (:array :signed-long 5))
  187.    (filler1 :signed-integer)
  188.    (sessRefNum :signed-long)
  189.    )
  190.  
  191. (def-mactype :ppcrejectpbptr (find-mactype :pointer))
  192. (defrecord PPCRejectPBRec 
  193.    (qLink :pointer)
  194.    (csCode :signed-integer)
  195.    (intUse :signed-integer)
  196.    (intUsePtr :pointer)
  197.    (ioCompletion :pointer)
  198.    (ioResult :signed-integer)
  199.    (reserved (:array :signed-long 5))
  200.    (filler1 :signed-integer)
  201.    (sessRefNum :signed-long)
  202.    (filler2 :signed-integer)
  203.    (filler3 :signed-long)
  204.    (filler4 :signed-long)
  205.    (rejectInfo :signed-long)
  206.    )
  207.  
  208. (def-mactype :ppcwritepbptr (find-mactype :pointer))
  209. (defrecord PPCWritePBRec 
  210.    (qLink :pointer)
  211.    (csCode :signed-integer)
  212.    (intUse :signed-integer)
  213.    (intUsePtr :pointer)
  214.    (ioCompletion :pointer)
  215.    (ioResult :signed-integer)
  216.    (reserved (:array :signed-long 5))
  217.    (filler1 :signed-integer)
  218.    (sessRefNum :signed-long)
  219.    (bufferLength :signed-long)
  220.    (actualLength :signed-long)
  221.    (bufferPtr :pointer)
  222.    (more :boolean)
  223.    (filler2 :signed-byte)
  224.    (userData :signed-long)
  225.    (blockCreator :ostype)
  226.    (blockType :ostype)
  227.    )
  228.  
  229. (def-mactype :ppcreadpbptr (find-mactype :pointer))
  230. (defrecord PPCReadPBRec 
  231.    (qLink :pointer)
  232.    (csCode :signed-integer)
  233.    (intUse :signed-integer)
  234.    (intUsePtr :pointer)
  235.    (ioCompletion :pointer)
  236.    (ioResult :signed-integer)
  237.    (reserved (:array :signed-long 5))
  238.    (filler1 :signed-integer)
  239.    (sessRefNum :signed-long)
  240.    (bufferLength :signed-long)
  241.    (actualLength :signed-long)
  242.    (bufferPtr :pointer)
  243.    (more :boolean)
  244.    (filler2 :signed-byte)
  245.    (userData :signed-long)
  246.    (blockCreator :ostype)
  247.    (blockType :ostype)
  248.    )
  249.  
  250. (def-mactype :ppcendpbptr (find-mactype :pointer))
  251. (defrecord PPCEndPBRec 
  252.    (qLink :pointer)
  253.    (csCode :signed-integer)
  254.    (intUse :signed-integer)
  255.    (intUsePtr :pointer)
  256.    (ioCompletion :pointer)
  257.    (ioResult :signed-integer)
  258.    (reserved (:array :signed-long 5))
  259.    (filler1 :signed-integer)
  260.    (sessRefNum :signed-long)
  261.    )
  262.  
  263. (def-mactype :ppcclosepbptr (find-mactype :pointer))
  264. (defrecord PPCClosePBRec 
  265.    (qLink :pointer)
  266.    (csCode :signed-integer)
  267.    (intUse :signed-integer)
  268.    (intUsePtr :pointer)
  269.    (ioCompletion :pointer)
  270.    (ioResult :signed-integer)
  271.    (reserved (:array :signed-long 5))
  272.    (portRefNum :signed-integer)
  273.    )
  274.  
  275. (def-mactype :ipclistportspbptr (find-mactype :pointer))
  276. (defrecord IPCListPortsPBRec 
  277.    (qLink :pointer)
  278.    (csCode :signed-integer)
  279.    (intUse :signed-integer)
  280.    (intUsePtr :pointer)
  281.    (ioCompletion :pointer)
  282.    (ioResult :signed-integer)
  283.    (reserved (:array :signed-long 5))
  284.    (filler1 :signed-integer)
  285.    (startIndex :signed-integer)
  286.    (requestCount :signed-integer)
  287.    (actualCount :signed-integer)
  288.    (portName (:pointer :ppcportrec))
  289.    (locationName (:pointer :locationnamerec))
  290.    (bufferPtr (:pointer :portinfoarray))
  291.    )
  292.  
  293. (def-mactype :ppcparamblockptr (find-mactype :pointer))
  294. (defrecord PPCParamBlockRec 
  295.    (:variant 
  296.       ((openParam :ppcopenpbrec))
  297.       ((informParam :ppcinformpbrec))
  298.       ((startParam :ppcstartpbrec))
  299.       ((acceptParam :ppcacceptpbrec))
  300.       ((rejectParam :ppcrejectpbrec))
  301.       ((writeParam :ppcwritepbrec))
  302.       ((readParam :ppcreadpbrec))
  303.       ((endParam :ppcendpbrec))
  304.       ((closeParam :ppcclosepbrec))
  305.       ((listPortsParam :ipclistportspbrec))
  306.       ))
  307.  
  308. ;   PPC Calling Conventions  
  309.  
  310. (deftrap _ppcinit nil
  311.    (:d0 :signed-integer)
  312.    (:register-trap #xA0DD :d0 0))
  313.  
  314. (deftrap _ppcopen ((pb (:pointer :ppcopenpbrec)))
  315.    (:d0 :signed-integer)
  316.    (:register-trap #xA0DD :a0 pb :d0 1))
  317.  
  318. (deftrap _ppcopensync ((pb (:pointer :ppcopenpbrec)))
  319.    (:d0 :signed-integer)
  320.    (:register-trap #xA0DD :a0 pb :d0 1))
  321.  
  322. (deftrap _ppcopenasync ((pb (:pointer :ppcopenpbrec)))
  323.    (:d0 :signed-integer)
  324.    (:register-trap #xA4DD :a0 pb :d0 1))
  325.  
  326. (deftrap _ppcinform ((pb (:pointer :ppcinformpbrec)))
  327.    (:d0 :signed-integer)
  328.    (:register-trap #xA0DD :a0 pb :d0 3))
  329.  
  330. (deftrap _ppcinformsync ((pb (:pointer :ppcinformpbrec)))
  331.    (:d0 :signed-integer)
  332.    (:register-trap #xA0DD :a0 pb :d0 3))
  333.  
  334. (deftrap _ppcinformasync ((pb (:pointer :ppcinformpbrec)))
  335.    (:d0 :signed-integer)
  336.    (:register-trap #xA4DD :a0 pb :d0 3))
  337.  
  338. (deftrap _ppcstart ((pb (:pointer :ppcstartpbrec)))
  339.    (:d0 :signed-integer)
  340.    (:register-trap #xA0DD :a0 pb :d0 2))
  341.  
  342. (deftrap _ppcstartsync ((pb (:pointer :ppcstartpbrec)))
  343.    (:d0 :signed-integer)
  344.    (:register-trap #xA0DD :a0 pb :d0 2))
  345.  
  346. (deftrap _ppcstartasync ((pb (:pointer :ppcstartpbrec)))
  347.    (:d0 :signed-integer)
  348.    (:register-trap #xA4DD :a0 pb :d0 2))
  349.  
  350. (deftrap _ppcaccept ((pb (:pointer :ppcacceptpbrec)))
  351.    (:d0 :signed-integer)
  352.    (:register-trap #xA0DD :a0 pb :d0 4))
  353.  
  354. (deftrap _ppcacceptsync ((pb (:pointer :ppcacceptpbrec)))
  355.    (:d0 :signed-integer)
  356.    (:register-trap #xA0DD :a0 pb :d0 4))
  357.  
  358. (deftrap _ppcacceptasync ((pb (:pointer :ppcacceptpbrec)))
  359.    (:d0 :signed-integer)
  360.    (:register-trap #xA4DD :a0 pb :d0 4))
  361.  
  362. (deftrap _ppcreject ((pb (:pointer :ppcrejectpbrec)))
  363.    (:d0 :signed-integer)
  364.    (:register-trap #xA0DD :a0 pb :d0 5))
  365.  
  366. (deftrap _ppcrejectsync ((pb (:pointer :ppcrejectpbrec)))
  367.    (:d0 :signed-integer)
  368.    (:register-trap #xA0DD :a0 pb :d0 5))
  369.  
  370. (deftrap _ppcrejectasync ((pb (:pointer :ppcrejectpbrec)))
  371.    (:d0 :signed-integer)
  372.    (:register-trap #xA4DD :a0 pb :d0 5))
  373.  
  374. (deftrap _ppcwrite ((pb (:pointer :ppcwritepbrec)))
  375.    (:d0 :signed-integer)
  376.    (:register-trap #xA0DD :a0 pb :d0 6))
  377.  
  378. (deftrap _ppcwritesync ((pb (:pointer :ppcwritepbrec)))
  379.    (:d0 :signed-integer)
  380.    (:register-trap #xA0DD :a0 pb :d0 6))
  381.  
  382. (deftrap _ppcwriteasync ((pb (:pointer :ppcwritepbrec)))
  383.    (:d0 :signed-integer)
  384.    (:register-trap #xA4DD :a0 pb :d0 6))
  385.  
  386. (deftrap _ppcread ((pb (:pointer :ppcreadpbrec)))
  387.    (:d0 :signed-integer)
  388.    (:register-trap #xA0DD :a0 pb :d0 7))
  389.  
  390. (deftrap _ppcreadsync ((pb (:pointer :ppcreadpbrec)))
  391.    (:d0 :signed-integer)
  392.    (:register-trap #xA0DD :a0 pb :d0 7))
  393.  
  394. (deftrap _ppcreadasync ((pb (:pointer :ppcreadpbrec)))
  395.    (:d0 :signed-integer)
  396.    (:register-trap #xA4DD :a0 pb :d0 7))
  397.  
  398. (deftrap _ppcend ((pb (:pointer :ppcendpbrec)))
  399.    (:d0 :signed-integer)
  400.    (:register-trap #xA0DD :a0 pb :d0 8))
  401.  
  402. (deftrap _ppcendsync ((pb (:pointer :ppcendpbrec)))
  403.    (:d0 :signed-integer)
  404.    (:register-trap #xA0DD :a0 pb :d0 8))
  405.  
  406. (deftrap _ppcendasync ((pb (:pointer :ppcendpbrec)))
  407.    (:d0 :signed-integer)
  408.    (:register-trap #xA4DD :a0 pb :d0 8))
  409.  
  410. (deftrap _ppcclose ((pb (:pointer :ppcclosepbrec)))
  411.    (:d0 :signed-integer)
  412.    (:register-trap #xA0DD :a0 pb :d0 9))
  413.  
  414. (deftrap _ppcclosesync ((pb (:pointer :ppcclosepbrec)))
  415.    (:d0 :signed-integer)
  416.    (:register-trap #xA0DD :a0 pb :d0 9))
  417.  
  418. (deftrap _ppccloseasync ((pb (:pointer :ppcclosepbrec)))
  419.    (:d0 :signed-integer)
  420.    (:register-trap #xA4DD :a0 pb :d0 9))
  421.  
  422. (deftrap _ipclistports ((pb (:pointer :ipclistportspbrec)))
  423.    (:d0 :signed-integer)
  424.    (:register-trap #xA0DD :a0 pb :d0 10))
  425.  
  426. (deftrap _ipclistportssync ((pb (:pointer :ipclistportspbrec)))
  427.    (:d0 :signed-integer)
  428.    (:register-trap #xA0DD :a0 pb :d0 10))
  429.  
  430. (deftrap _ipclistportsasync ((pb (:pointer :ipclistportspbrec)))
  431.    (:d0 :signed-integer)
  432.    (:register-trap #xA4DD :a0 pb :d0 10))
  433.  
  434. ; These next three traps are guesses.
  435. ; The documentation says that A0 points at a <gobblegobble>record, none of
  436. ; which is defined anywhere.
  437. (deftrap _deleteuseridentity ((userref :signed-long))
  438.    (:d0 :signed-integer)
  439.   (ccl:rlet ((userrefp :long userref))
  440.     (:register-trap #xA0DD :d0 12 :a0 userrefp)))
  441.  
  442. (deftrap _getdefaultuser ((userref (:pointer :signed-long)) (username (:pointer (:string 32))))
  443.    (:d0 :signed-integer)
  444.   (ccl::%stack-block ((params 8))
  445.     (%put-ptr params username)
  446.     (%put-ptr params userref 4)
  447.     (:register-trap #xA0DD :d0 13 :a0 params)))
  448.  
  449. (deftrap _startsecuresession ((pb (:pointer :ppcstartpbrec)) (username (:pointer (:string 32))) (usedefault :boolean) (allowguest :boolean) (guestselected (:pointer :boolean)) (prompt (:string 255)))
  450.    (:d0 :signed-integer)
  451.   (ccl::%stack-block ((params 20))
  452.     (%put-ptr params prompt)
  453.     (%put-ptr params guestselected 4)
  454.     (%put-word params allowguest 8)
  455.     (%put-word params usedefault 10)
  456.     (%put-ptr params username 12)
  457.     (%put-ptr params pb 16)
  458.     (:register-trap #xA0DD :d0 14 :a0 params)))
  459.  
  460. (deftrap _ppcbrowser ((prompt (:string 255)) (appllistlabel (:string 255)) (defaultspecified :boolean) (thelocation (:pointer :locationnamerec)) (theportinfo (:pointer :portinforec)) (portfilter :pointer) (thelocnbptype (:string 32)))
  461.    (:stack :signed-integer)
  462.    (:stack-trap #xA82B :d0 3328 prompt appllistlabel defaultspecified thelocation theportinfo portfilter thelocnbptype))
  463.  
  464. ; $ENDC                         ;  UsingPPCToolBox 
  465.  
  466. ; $IFC NOT UsingIncludes
  467.  
  468. ; $ENDC
  469.  
  470.  
  471. (export '($ppcremoteorigin $ppclocalorigin $ppcbystring $ppcbycreatorandtype
  472.           $ppcnbptypelocation $ppcnbplocation $ppcnolocation
  473.           $ppcservicerealtime))
  474. (provide-interface 'PPCTOOLBOX)
  475.